﻿Option Explicit On
Option Strict On
Option Infer On

Imports System
Imports System.Xml.Linq
Imports Microsoft.Build.Framework
Imports Microsoft.Build
Imports Microsoft.Build.BuildEngine


Public Class AdjustVBToCSharp
   Inherits AdjustBase

   Protected Overrides Function AdjustTemplate( _
            ByVal fileName As String) _
            As String
      Try
         Dim translator = New GenDotNet.VBToCSharpTemplateConverter.VBToCSharp
         Return translator.TranslateFile( _
                  fileName, _
                  AddressOf Me.LogVerboseMessage, _
                  AddressOf Me.LogNormalMessage, _
                  AddressOf Me.LogWarning, _
                  AddressOf Me.LogError)
      Catch ex As Exception
         Throw
      End Try

   End Function

   Protected Overrides ReadOnly Property AdjustSuffix() As String
      Get
         Return "CSharp"
      End Get
   End Property
End Class
